unit fGlsProgress;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.StdCtrls,
  Vcl.ComCtrls;

type
  TGlsProgressForm = class(TForm)
    ProgressBar: TProgressBar;
    CancelButton: TButton;
    procedure CancelButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
  public
  end;

var
  GlsProgressForm: TGlsProgressForm;

implementation

uses
  uConstants;

{$R *.dfm}

procedure TGlsProgressForm.CancelButtonClick(Sender: TObject);
begin
  if MessageDlg('Are you sure?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    GlsUserCancelled := True;
end;

procedure TGlsProgressForm.FormShow(Sender: TObject);
begin
  GlsUserCancelled := False;
end;

end.
